library(here)
source('~/Desktop/vsl/vsl_workbook.R')
source('~/Desktop/vsl/vsl_workbook.R')
vsl.mean = mean( c(vsl$Lower, vsl$Upper)   )
source('~/Desktop/vsl/vsl_workbook.R')
vsl.mean = rowMeans( vsl[, 3:4]  )
vsl.mean
source('~/Desktop/vsl/vsl_workbook.R')
source('~/Desktop/vsl/vsl_workbook.R')
source('~/Desktop/vsl/vsl_workbook.R')
boxplot(vsl.all)
sd(vsl.all) / mean(vsl.all)
boxplot(vsl.all, log = "y")
hist(log(vsl.all))
sd(vsl.all) / mean(vsl.all)
sd(vsl.all) / mean(vsl.all) /0.04
